home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1463.ZIP
/
DRAW-2D.ARC
/
MENU.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-11-24
|
891b
|
19 lines
PROCEDURE MENU(OPT:INTEGER);
VAR
MOPT:ARRAY[1..5] OF SCRLINE;
BEGIN
(* 12345678901234567890123456789012345678901234567890123456789012345678901234567890 *)
MOPT[1] := ' OBJECT OPER-1 OPER-2 CONFIG LOAD SAVE PRINT QUIT ';
MOPT[2] := ' POINT LINE V-LINE H-LINE BOX CIRCLE TOP MENU';
MOPT[3] := ' SEL-MODE ERASE MERGE RE-DRAW TOP MENU';
MOPT[4] := ' SCALE ZOOM-IN ZOOM-OUT X-LATE PAN ROTATE TOP MENU';
MOPT[5] := ' BELL CONT-LIN COLOR CIRC-SEG WLDSIZ TOP MENU';
M1 := 2; (* HIDE MOUSE *)
MOUSE(M1,M2,M3,M4);
MOVCUR(21,1);
WRITE(BLKLINE);
MOVCUR(21,1);
WRITE(MOPT[OPT]);
M1 := 1; (* SHOW MOUSE *)
MOUSE(M1,M2,M3,M4);
END;